<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include Virtual="/expedientes/includes_comun/asp/comun.asp"-->
<!--#Include File="includes/asp/comun.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Sistemas OnLine</title>
<link href="/expedientes/includes_comun/css/general.css" rel="stylesheet" type="text/css" />
<link href="/expedientes/includes_comun/css/usuarios.css" rel="stylesheet" type="text/css" />
<link href="includes/css/sistema.css" rel="stylesheet" type="text/css" />
<script src="includes/js/botones.js" language="javascript" type="text/javascript"></script>
</head>

<body>
<div align="center" class="general-central">

	<!--#Include Virtual="/expedientes/includes_comun/areas/usuarios.asp"-->

<%
Conectar_sol

Dim u
u = Request.Form("u")
If Len(u) = 0 Then u = 0 Else u = CInt(u)

Dim gGrupos,gSistemas

Select Case Request.QueryString("acc")
	Case "agregar"
		Agregar
		Cargar
	Case "guardar"
		Cargar
		Guardar
		Cargar
	Case "eliminar"
		Cargar
		Eliminar
		Cargar
	Case Else
		Cargar
End Select


Sub Cargar()
	gGrupos = Null
	gSistemas = Null
	
	SQL = "SELECT * FROM UsuariosGrupos ORDER BY Nombre"
	Set Tabla = Conexion.Execute(SQL)
	gGrupos = Tabla.GetRows
	Tabla.Close

	SQL = "SELECT Id_Sistema, Nombre, Nivel FROM Sistemas ORDER BY Ubicacion"
	Set Tabla = Conexion.Execute(SQL)
	gSistemas = Tabla.GetRows
	Tabla.Close
End Sub
%>
	
	<!--#Include File="includes/areas/cabecera.asp"-->
	
	<div class="general-contenido">
		<span class="titulo">Grupos de Usuarios</span><br />
		
		<fieldset style="width: 150px; float:left"><legend>Agregar</legend>
			<form name="add" method="post" action="grupos.asp?acc=agregar">
			<div>
				Nombre <input type="text" name="nombre" />
				<div align="center"><input type="submit" id="botonenviar" value="Agregar" /></div>
			</div>
			</form>
		</fieldset>

		<fieldset><legend>Modificar / Eliminar</legend>
			<form name="me" method="post" action="" />
			<div>
			Seleccionar grupo
				<select name="u" onChange="document.me.action='grupos.asp'; document.me.submit();">
<% For I = LBound(gGrupos, 2) To UBound(gGrupos, 2) %>
					<option value="<%= I %>"<% If u = I Then Response.Write(" selected") %>><%= gGrupos(1, I) %></option>
<% Next %>
				</select>
			</div><br />
			<div>
				<b>Nombre</b> <input style="width: 300px;" type="text" name="nombre" value="<%= gGrupos(1, u) %>" /><br /><br />
				<b>Permisos</b><br />
<%
For I = LBound(gSistemas, 2) To UBound(gSistemas, 2)
%>
				<input type="checkbox" name="id_sistema" value="<%= gSistemas(0, I) %>" class="sinborde" style="width: 13px;"<% If (gSistemas(2,I) And gGrupos(2,u)) = gGrupos(2,u) Then Response.Write(" checked") %> /> <%= gSistemas(1, I) %><br />
<%
Next
%>
			</div>
			<div align="center">
				<input type="submit" id="botonenviar" value="Guardar cambios" onClick="document.me.action='grupos.asp?acc=guardar'; document.me.submit();" />
				<input type="submit" id="botonenviar" value="Eliminar" onClick="document.me.action='grupos.asp?acc=eliminar'; document.me.submit();" />
			</div>
			</form>
		</fieldset>
	</div>
</div>
</body>
</html>
<%
Desconectar

Sub Agregar()
	Dim Nombre
	Nombre = Request.Form("nombre")
	If Len(Nombre) = 0 Then
		MostrarMsg "Debe ingresar un nombre!", True
	Else
		SQL = "INSERT INTO UsuariosGrupos(Nombre, Nivel) Values('" & Nombre & "'," & DameNivel & ")"
		Set Tabla = Conexion.Execute(SQL)
	End If
End Sub

Sub Guardar()
	Dim Nivel, Ids
	Ids = Request.Form("id_sistema")
	Nivel = gGrupos(2,u)
	
	SQL = "SELECT Nivel FROM Sistemas"
	Tabla.Open SQL, Conexion, 1, 2
	Do While Not Tabla.EOF
		If (Tabla("Nivel") And Nivel) = Nivel Then
			Tabla("Nivel") = Tabla("Nivel") - Nivel
			Tabla.Update
		End If
		Tabla.MoveNext
	Loop
	Tabla.Close
	
	SQL = "SELECT Nivel FROM Sistemas WHERE Id_Sistema IN(" & Ids & ")"
	Tabla.Open SQL, Conexion, 1, 2
	Do While Not Tabla.EOF
		Tabla("Nivel") = Tabla("Nivel") + Nivel
		Tabla.Update
		Tabla.MoveNext
	Loop
	Tabla.Close
End Sub

Sub Eliminar()
	Dim Nivel
	Nivel = gGrupos(2,u)
	
	SQL = "SELECT Nivel FROM Sistemas"
	Tabla.Open SQL, Conexion, 1, 2
	Do While Not Tabla.EOF
		If (Tabla("Nivel") And Nivel) = Nivel Then
			Tabla("Nivel") = Tabla("Nivel") - Nivel
			Tabla.Update
		End If
		Tabla.MoveNext
	Loop
	Tabla.Close
	
	Desconectar
	Conectar_gae
	
	SQL = "SELECT Nivel FROM Secciones"
	Tabla.Open SQL, Conexion, 1, 2
	Do While Not Tabla.EOF
		If (Tabla("Nivel") And Nivel) = Nivel Then
			Tabla("Nivel") = Tabla("Nivel") - Nivel
			Tabla.Update
		End If
		Tabla.MoveNext
	Loop
	Tabla.Close
	
	Desconectar
	Conectar_sol
	
	SQL = "DELETE FROM UsuariosGrupos WHERE Id_Grupo = " & gGrupos(0,u)
	Set Tabla = Conexion.Execute(SQL)
End Sub

Function DameNivel()
	Dim Temp
	For I = 0 To 22
		SQL = "SELECT Id_Grupo FROM UsuariosGrupos WHERE Nivel = " & 2^I
		Set Tabla = Conexion.Execute(SQL)
		If Tabla.EOF Then
			Tabla.Close
			Temp = 2^I
			Exit For
		End If
		Tabla.Close
	Next
	DameNivel = Temp
End Function
%>